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=PPARAABRBARAARAARAAAAAALALAAAAAAAAS ALARA SE AAAS AAR RR RA AR EARS ARERR ARREARS RASS ALES GS 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQU CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED 


THIS SOFTWARE abut cite’ Te Tene oe AND MAY BE USED AND COPIED 


® 
ft 
te 
* 
® 
e 
® 
® 
& 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
TRANSFERRED. * 
® 
THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ®* 
CORPORATION. . 
® 
® 
® 
® 
® 
* 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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Sooooooooooooo 


Facility: rms32 


Abstract: 
this routine performs common rab call argument 
List and rab validation. 
0000 
Environment: 
star processor running starlet exec. 


Author: lL f laverdure, creation date: 4-JAN-1977 
Modified By: 


v03-004 DGB0042 Donald G. Blair 02-May-1984 
If the PIO$V_ INHAST ‘bit is set when we start an 
RMS yn Bees we conclude that the caller must be 
at exec AST Level or higher and that he would break 
RMS synchronization rules if allowed to continue. 
Return Error. 


v03-003 RASO171 Ron Schaefer 19-Jul-1983 
eens RASO162 to a new specific structure-less 
error. 


v03-002 RASO162 Ron Schaefer 17-Jun-1983 
Detect and report the AST /non-AST caller's mode 
wait hang condition, by checking the low bit of the 
RAB‘s BLN field. 
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SSE 15be 2:32:13 f 


BT0213 Keith B. Thompso 
eorganize psects 

DS0001 C Saether 

ename psect. 

EFORMAT Maria del C. Nas 
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DECLARATIONS (2) 


4 
713° CRMS.SRCJRMORABCHK.MAR; 1 
-SBTTL DECLARATIONS 


: Include Files: 


3 
: 
3; Macros: 
e 


SPIODEF 
SRMSDEF 


: Equated Symbols: 


> Own Storage: 


SOoOCOQOoCQOQoCoOOooCoooooooooocoo 
SOOCOGOCOCOCOOOOOOOOOOOoOoOo 


OO 10.0000 09 09 00 00 09 090009 JNININJINIININIISS 
MRM CODNAUEWNOOONOULWN HO 
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This routine performs the following functions: 
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v04 RMSRABCHK = COMMON ARGLIST AND RAB VALID 5=SEP-1984 16:22:1 RMS. SRCJRMORABCHK.MAR; 1 (3) vo: 
~SBTTL RMSRABCHK = COMMON ARGLIST AND RAB VALIDATION ROUTINE 
at 
98 ; RMSRABCHK 
RMSNULL 
: RMSBASIC_ERR 


1. setup ri1 to point to the image i/o impure area 
(may be changed by rmsOconn or rmO0ifisi) 

- check argument List for accessibility and validity 

. check rab for accessibility and validity 

. set r8 to address of rab 

- inhibit rms internal asts 

- set r9 to the value of isi 


Quit wry 


; Calling sequence: 

bsbw rm$rabchk 
Input Parameters: 

ap arglist addr 
Implicit Inputs: 


the contents of the arglist and the bid, bln, and isi fields 
of the rab. 


Output Parameters: 


OWONAUE WN 9 OOO WN OOD NAME WIN (OOO NAUE 


rii impure area address 

r9 isi value 

r8 rab address 

r7 mode of cailer 
Implicit Outputs: 

none 


Completion Codes: 


SOSOSSCSCOOCSOOSCOOCOSOOSOOOCOOCSOOSOOSOOOOOCOSOOSOOOOOOOSoOSoOO 


z-bit set if isi = zero, else clear. , 

if any errors, the rms error code is set into r0 

and return is made to the user (not caller). 
Side Effects: 


rms internal asts are inhibited. 
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i 3 
! p++ : 
: : 3; set up pointer to image i/o impure area and set r7 to the mode of the caller : 
156 :-- : 
H 3 
158 RMSRABCHK:: 3 
5B DC 159 MOVPSL R11 ; get psl : 
8 EF 00 160 EXTZV #PSLS$V_PRVMOD,- PF 
o)6hClU CSG BR3 19 #PSL$S_PRVMOD,R11,R7 3 extract the previous mode : 
5B G0000000'9F ODE 00) 168 MOVAL a@#PI10$GW_IIOIMPA,R11 ; image io impure area addr : 
OOE 165 ;+4+ 3 
QOOE 166; 3 
OOOE 167 ; perform accessibility checks $ 
QOOE 168; 3 
QO0E 198 j-- 3 
OCOE 170 $ 
58 04 AC 00 444 171 MOVL 4 (AP) ,R8 ; get rab address : 
001 1% IFNOWRT #RABSC_BLN,(R8),ERRRAB ; rab writeable? : 
001A «(17 ASSUME RAB$B_BID EQ 0 ; 
QO1A 174 SSUME RABS$B_BLN EQ 1 $ 
4401 8F 68 B61 OOIA 175 (R8) ,PRABSC_BID+<RABSC_BLN@8>; rab block id & length? 3 
0B 12 OOI1F 176 BNEQ CHKRAB 3; branch if perhaps not 3 
gd 177 3 
0021 178 ;++ 3 
0021 179; $ 
0021 180 ; Disable AST's. If the PIOSV_INHAST bit is streety set, we $ 
0021 181; conclude that the caller must be at exec ast level or higher 3 
0021 186 : (otherwise, he could not have kicked off an RMS operas ton 3 
0021 183 ; while RMS was already in progress) and would break RMS 3 
0021 184; synchronization rules if allowed to continue. Return RMS$_BUSY ; 
0021 185 ; status when this happens. 3 
0021 1846; 3 
0021 187 ;-- 
0021 188 
00 €2 0021 #£«°189 INHAST: BBSS #P10$V_INHAST,- ; disable asts 
15 0000'CB a098 190 W*<P1OSGW_STATUS-P10$GW_II1OIMPA>(R11) ,ERRBUSY 
027 19 
59 02 a8 3C 4 . 138 MOVZWL RABSW_ISI(R8) ,R9 ; set r9 = isi value 
60 B 195 ;++ 
028 196; : 7 
: 13 3; dummy routine to simply return via an rsb 
028 199 ;-- 
028 0 
3 B 1 RMSNULL:: 
05 8 § RSB 
002C 
5 C : 3 ++ 
C : 
8 : 8 ; make longer version of rab validity check 
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C 
01 6 91 C 10 CHKRAB: CMPB (R8) ,#RABSC_BID ; is it a rab? 
1 12 F 11 BNEQ ERR 
44 BF O01 AB 91 1 1s CMPB RABSB_BLN(R8) ,ARABSC_BLN; is it long enough? 
0B iF QO g 1 BLSSU ERR 3; nope repect error 
E501 AB ED 00 14 BLBC RAB$SB_BLN(R8),INHAST  ; is this RAB busy? 
03C 15 3; continue if not 
003C 16 
bose Sik 
OO ee }} 3 an-error has occurred in validating the argument List or rab 
is 1; Since an error code cannot be safely stored in the rab, 
003¢ ¢ 3; no attempt to generate an err= ast will be made. 
003C ; RO will be set to the appropriate error code and an 
Oo e : 3 exception, if enabled, will be generated upon ret. 
003C ; 6 s= 
003C 7 
CO3C § 8 ERRBUSY: , 
003C¢ ¢? RMSERR BUSY 3 synchronization problem 
0c 11 0041 230 BRB BASIC_ERR 
0043 231 
4k: 3 ERRBLN: f 
004 RMSERR BLN : invalid block length 
05 11 0048 234 BRB BASIC_ERR 
004A 35 
004A 236 ERRRAB: 
004A 37 RMSERR RAB : invalid rab 
004F 38 
004F 239 BASIC_ERR: 
OO4F seo SSB #16,R0 : prefix the facility code 
005 41 3 ee. to the error code 
005 seg 
04 005 24 RET 3 and return to caller 
0054 ste 
0054 45 - END 


RMORABCHK 
Symbol table 


he working set Limit was 1350 pages. 

21919 bytes (43 pages) of virtual memory were used to buffer_the intermediate code. 

There were 20 pages of symbol table space allocated to hold 399 non-local ane 1 Local symbols. 
245 source Lines were read in Pass 1, producing 15 object records in Pass 2. 
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NORD NOWRT NOVEC BYTE 
RD WRT NOVEC 


$$.PSECT EP = 90 
SSRMSTEST = A 
SSRMS_PBUGCHK = 8 
SSRMS_TBUGCHK r 8 
siete ve * FF 
CHKRAB 8 ef a it 
ERRBLN 00000435 R 01 
ERRBUSY 000003C R 01 
ERRRAB QO00004A R 01 
INHAST 00000021 R 01 
PIOSGW_IIOIMPA eeeeeeee X 01 
P1O$GW_ STATUS reerenee X 01 
P1OSV_INHAST = GS 448 
PSL$S_PRVMOD = S444 44 
PSLS$V_PRVMOD = 00000016 
ABSB_BID = 4444 4 
ABS$B_BLN = 00000001 
RABSC_BID = 00000001 
RABSC_BLN = 00000044 
RABSW_ISI = 00000002 
RMSNUCL 00000028 RG 01 
RMSRABCHK 00000000 RG 01 
RMS$_BLN = 0001842C 
RMS$_BUSY = 0001848C 
RMS$_RAB = 0001863 
was seeen nee oaoe eae ae + 
! Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
, ss 00000000 ( 0.) 00 ¢ O.) NOPIC USR CON ABS LCL NOSHR NOEXE 
RMSRMSO 00000054 mB. Oe ha PIC USR CON REL GBL NOSHR EXE RD NOWRT NOVEC BYTE 
SABSS 00000000 <¢ 0.) 02 ¢ 2.) NOPIC USR CON ABS LCL NOSHR-~ EXE 
peewee see eee nn as eee eee eee 3 
! Performance indicators H 
pear amr ore me em em ene oreo mee 
Phase Page faults CPU Time Elapsed Time 
Initialization 29 :00:00.0 :00:01.5 
Command processing 115 8:09; : g ie 0:04:08 
Pass 200 8: 8: 4.35 8:98: 3 0 
Symbol table sort 2 00:00:00. ; 0:00:00.79 
ass 5 0:00:00.9 Bi 3 
Symbol table output 4 0:00:00.05 0:00: : 
Psect synopsis output 1 0:00: 3: 3 B08: i" ‘ 
Cross-reference output 0 0:00:00. 0:00:00.0 
Assembler run totals 406 00:00:06.50 0:00:25.14 
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RMORABCHK 
VAX=11 Macro Run Statistics 
18 pages of virtual memory were used to define 17 macros. 


deme neem ee em remem em ane mowae } 


! ; Macro library statistics ! 


espe Ssm aces sem eo een aouneununt 


Macro Library name Macros defined 
SDUA fs fe a ey -MLB;1 
SDUA MLB; 1 1 
$SDUA TSYSLIB STARLET. MLB;2 ; 
732538 (all libraries) 1 


501 GETS were required to define 13 macros. 
There were no errors, warnings or information messages. 
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